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CEA AIN 


POR 500.000 PTAS. 





Participa en su Concurso de programas para ordenador Hit Bit-MSX. 


Sony convoca un Concurso 


A -Programas de Contenido Didáctico. 
por Centros Docentes entre los espec 


de programas para ordenadores MSX bajo dos categorías. 


Tema de contenido didáctico desarrollado 
ificados en los planes de estudios vigentes. 


B -Programas libres. Tema libre desarrollado por usuarios de ordenadores MSX. 











Premios 





A —Para el mejor programa 
didáctico. 
500.000 ptas. para el 
Centro Docente 
500.000 ptas. para los 


autores 


B- Para el mejor programa 
de tema libre. 
1*. premio 500.000 ptas. 
para el autor o autores. 
5 premios: 100.000 ptas. 
para cada uno de los 
siguientes 5 clasificados. 





Requisitos 





> Los programas 
presentados por los 
Centros Docentes 
deberán tener un máximo 


de 28 K. RAM. 


> Los programas 
presentados por usuanos 
deberán tener un 


máximo de 12 K.RAM. 


> Sony tendrá la propiedad 
de los programas 





» Sony tendrá los derechos 
de compra sobre el 
resto de los programas 
presentados. 


v 


Los programas que 
concursen deberán ser 
presentados grabados en 
cinta de audio Sony O 
diskette Sony OM-D3440, 
entregándose dos copias. 
Asimismo se deberá ad- 
juntar un listado, instruccio- 
nes de funcionamiento y 
una síntesis del contenido 
del programa. 


> Con cada programa se 
entregará un sobre 
cerrado conteniendo los 
datos del autor o autores, 
y en exterior figurará el 
título correspondiente. 


>” Todos los concursantes, 
independientemente de 
su clasificación final, 
serán obsequiados con un 
producto Sony. 





Fecha de entrega de 
los programas 





La fecha tope para la 








es el 30 de Noviembre de 
1.0985. Debiendo ser entre - 
gados a Sony España, S.A. 
Departamento Ordenadores 
MSX. Sabino de Arana, 
42-44 08028 BARCELONA. 
Te (93) IMMPS ol. 





Fallo del concurso y 
entrega de premios 





Entre todos los programas 
recibidos, Sony eligirá los 
que a su juicio, contengan 
un mayor nivel de 
innovación .y creatividad. 


El fallo se hará público el 
29 de Diciembre de 1.985 
y publicado en la prensa 
nacional. 


Para mayor información o 
consulta, diríjase a 
cualquiera de las 
Delegaciones Sony. 


ORDENADORES 
HITOS 
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Programas Sony para ordenadores MSX 


A la orden. 


IRALA 


















Monkey Países Países Computador Computer The Snowman Cubit Character 
Academy del Mundo-1 del Mundo-2 Adivino Billiards Collection 
Stop the express Hustler (Billar Data cartridge Quinielas y Home Writer Sparkie Aprendiendo Binary Land 
(Para el Tren) Americano) Reducciones Inglés-1 
Creative Aprendiendo Antartic Mastermind Contabilidad Athletic Land Ficheros 
Greetings Inglés-2 Adventure Personal 
El Ahorcado Dorodon La Pulga Cosmos Control Battle Cross Mouser Crazy Train 
de Stocks 
Ali baba Juno First Car Jamboree Tutor Track and Blackjack Track and Driller Tanks 
Field-1 Field-2 (Tanque 
(olimpiadas) (olimpiadas) Destructor) 


Y muchos 
más titulos < 










Sonygraph Ninja Les Flics 
(El Samurai) 


Ordenador Doméstico 


SONY > 
Para lo que guste ordenar. [LEz4 











ASIA (Base de datos secuencial) 


Una base de datos es un fichero en el que los 
campos son definidos por el usuario y el programa 
se encarga de todas las funciones de escritura de 
fichas, corrección, lectura etc. El programa de la base 
de datos nos permite, una vez definidos los campos, 
despreocuparnos de ellos porque todas las referencias 
serán correctas. De esta forma se pueden hacer todos 
los ficheros diferentes que se quiera con un único 
programa. Un archivo bibliográfico, de discos, una 
agenda etc. etc. 


Cuando pones el programa en marcha 
tiene 100 fichas con 10 campos cada 
una. Estos números se pueden modi- 
ficar simplemente contestando las pre- 
guntas que acerca de ellos te hace el 
programa. Pero claro, todo tiene sus 
límites. Siempre que no te aparezca 
un mensaje «out of memory» O «out 
of string space» el programa funciona- 
rá correctamente. Si se aumenta el 
número de campos debe disminuirse 
el de fichas y viceversa. Como orien- 
tación te puede servir la tabla adjunta. 





Eligiendo la opción 1 el programa 
va pidiendo los títulos que van a 
tener los campos de las fichas y si 
van a ser campos alfanuméricos o 
exclusivamente numéricos. 

Ejemplo: 

2-6 Lítulo?... nombre 
¿Alfabético (A) o numérico (n)?... A 
A. ¿y Título?... teléfono 
¿Alfabético (A) o numérico (n)?... N 


Y así sucesivamente hasta comple- 
tar los títulos de los campos que 
hayamos designado. Si cuando el pro- 
grama nos pide un título pulsamos 
RETURN directamente dos veces, el 
programa no pide más títulos y con- 
sidera el número de campos como 
los que se hubieran introducido hasta 
ese momento. No es preciso por tanto 
utilizar todos los campos. 


Cuando se ha terminado la confec- 


ción de los títulos que ha de tener 
la ficha se presenta la lista de ordenes 
con la ssiguientes posibilidades: 


A-AÑADIR fichas al archivo. Ló- 
gicamente esta será la primera función 
que uses. Al pulsar la letra A aparece 
el número de ficha que va a ser 
añadida y pide el contenico de los 
campos que hubiera definidos. Al ter- 
minar la ficha presenta la ficha recién 
escrita y pregunta si estás conforme. 
Si no es así la ficha se puede reescri- 
bir. Cuando se está conforme el pro- 
grama pregunta si quieres escribir más 
fichas y si es así presenta el siguiente 
número y empieza otra vez el proceso 
de escritura. 


B-BUSCAR fichas. Al pulsar la 
letra B el programa te pedirá el nú- 
mero del campo por el que quieres 
buscar y el texto que buscas. Después 


te presentará en la pantalla, una a 
una, todas las fichas que tengan el 
mismo texto en el mismo campo. Por 
ejemplo, si buscas por el campo 1 
(nombre) el texto José el programa 
te mostrará todas las fichas que tengan 
José en el campo 1 y las contará 
diciéndote cuantas fichas hay con el 
texto José. 


C-CORREGIR fichas. Te permite 
corregir el contenido de los campos 
de una ficha volviendo a la lista de 
órdenes una vez terminada la corrección. 


D-DESTRUIR fichas. el programa 
te pide el número de la ficha que 
quieres eliminar. El fichero se renu- 
mera automáticamente cuando se usa 
esta Opción. 


O-ORDENACION ALFANUME- 
RICA. Para ordenar alfanumérica- 
mente cualquier campo. 
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BASDAT 


J-JUSTIFICAR. Para poner un 
margen al contenido de cada campo. 
El programa te irá mostrando los 
sucesivos campos y te irá pidiendo 
un TAB para cada uno de ellos. 


F-FIN. Ten mucho cuidado de no 
pulsar esta tecla sin querer porque 
se pierden todos los datos. Hazlo solo 
cuando ya hayas terminado y grabado 
el archivo. 


L-LECTURA EN EL MONITOR. 
Puedes leer todo el archivo o parte 
de él, con o sin los nombres de los 
campos, con o sin los números de 
cada ficha, por orden numérico o 
alfanumérico, cuadrando o no los 
campos numéricos, justificando o no 
los campos y con la separación entre 
fichas que quieras. Las opciones se 
van eligiendo por preguntas (S/N) su- 
cesivas. 


POR JUAN CARLOS 
MONSER 


N-NUEVO ARCHIVO. Se elimina 
el archivo en curso y se empieza otro 
nuevo volviendo a definir los campos. 


H-COMENZAR DE NUEVO. 
Lleva el programa a la elección entre 
las tres primeras opciones. 


G-GRABAR EL ARCHIVO. Te 
permite grabar el archivo en cinta. 


S-SUMAR LOS CAMPOS NUME- 
RICOS. Suma el contenido de los 
campos numéricos que quieras y te 
da el resultado. También te dice el 
número de fichas que ha sumado. 
Puede servir para comprobar si se 
han metido bien todas las fichas. 


Una vez hecho el archivo puedes 
conservarlo en cinta y hacer otros 
distintos ¡con el mismo programa! 


Para sacar un fichero de una cinta 
solo tienes que poner la cinta al co- 


BASE DE DATOS 
SACRISTAN 


M 

INICIALIZACION Y PRESENTACION 
REM 
MAXF ILES=1:CLS: SCREENS: WIDTH99 


79 
CATE 17,5: PRINTEBASDAT CLOCATEA TOS" SECUENCIAL "sl 
E 


89 LOCA 


O RI=1701900:NEXTI:G0TO138 


99 GOSUB1990: MENU=INSTR (MENUS 


8,12:PRINT"BASE DE DAT 


199 KY$=INKEYS$: IFKYS$=""THEN1DGELSERETURN 


LOCATES 


TEXTOS DE LA 


DIMD(MF) ,AT(MF) 
REMONERRÓRGOTO639 
259 REM 

REM 


238 
ee 


ORDENES. 
439,638: 60T0239 


N).."5AT(I) 
319 IFD(I)=""THEN359 
329 IFAT(I)="N"ORAT 


349 NEXTI 
359 NF=I-1:NI=-1 


379 FORI=9TONF 


429 REM 
439 CLS:PRINT"PREPARA EL 
CO. ESTOY CARGANDO DATOS 


299 FORI=9TOMF:AT(1)="":D(I) 
399 PRINTI+15: INPUT"TITULO DEL CAMPO.... 


339 PRINT"DEBES ESPECIFICAR 


PRINTSTRINGS (W, 45) : RETURN 
19: PRINT"BUENO 
CLEAR40560: DEFSTRA-H: DEFINTI-S:B=" "Fi" NNA RH, 88 
CLS:LOCATE 2,4:PRINT"USA LETRAS MAYUSCULAS 

¿"FICHAS PUEDEN IR 
MF=9:MI=99:PRINT:PRINT"ESTA BASE ACEPTA 199 F 


MENUS="SN":PRINT"QUIERES CAMBIAR EL NUMERO DE FICHAS O DECAMPOS”? (S/N) * :GOSU 


IFKY$="S"THENGOSUB 2349 
NF (MF) ,O(MI),Y(MI),B(MI), 


PUES HASTA OTRO DIA.”":END 


EN MINUSCULA 


A OPCIONES DISPONIBLES 
CLS:PRINT"OPCIONES DISPONIBLES”: W= 
UEVO.......1”:PRINT"SACAR ARCHIVO DE UNA CINTA......+..+ 
.....:....3”:W=36: GOSUB119 

249 PRINT:PRINT"ESCOGE LA OPCION QUE QUIERA 
TITULOS O CAMPOS 

N DE LOS TITULOS O CAMPOS”: W=34: GOSUB119 


">D(I): INPUT"ALFABETICO (A) O NUMERICO ( 
(1)="A”" THEN349 
(A) O (N),NO LO OLVIDES”: G60TO389 


369 CLS:PRINT"LA FICHA TIENE LOS SIGUIENTES"NF+1"CAMPOS” 


389 PRINTI+1;*":"5D(I)5TAB(1S)5AT(I) 
399 NEXTI:GOSUBS548: G0TO639 


SACAR FICHERO DE CASSETTE 
CASSETTE, PULSA PLAY": GOSUB5S49: PRINT:PRINT"ESPERA UN PO 


449 OPEN"CAS: DATA” FORINPUTASH1 


459 INPUTH1 


NI ,NF 
469 FORI=9TÓONF: INPUTH1,D(1) 
cm AD FORI=9TONI:FORI=9TONF: IFAT ( 


AT(I) 
1 


)= 


NEXT 
"N"T 


* KEYOFF : COLOR15, 4,9: LOCATE17, 4: PRINT " WWWWWW" : LO 
S SECUENCIAL”:LOCATE14,29:PRINT"MONSER S.A.*:FO 
KY$) : IFMENUTHENRETURNELSE99 


4.44” 
ARA CONTESTAR” :LOCATES,8:PRINT” 
ss” 
ICHAS DE 19 CAMPOSCADA UNA”: PRI 


A(MF,MI),X(MF,MI) 


: S:PRINT"CREACION DE UN FICHERO N 
ÑA CINTA. - 2”: PRINT"LEER LA LISTA DE 


S”" : MENU$=" 123” : GOSUB?98: ONMENUGOTO289. 

















mienzo del fichero y pulsar play en 
la lecto-grabadora de datos cuando 
el programa te lo indique. El progra- 
ma carga los datos y cuando termina 
presenta en pantalla los campos que 
tiene cada ficha del fichero introduci- 
do. Pulsando RETURN se pasa a la 
lista de órdenes. El programa tiene 
todas las explicaciones necesarias para 
hacerlo funcionar. 


ES MUY IMPORTANTE que te- 
clees el listado con sumo cuidado, un 
fallo, por pequeño que sea puede 
hacer que alguna parte o todo el 
programa no funcione correctamente. 
Es largo de teclear pero te compen- 
sará. 


Por último, si eres el feliz poseedor 
de una unidad de disco, estoy seguro 
de que podrás adaptar el programa 
para que además use los discos. 


486 IFAT(I)="A"THENS1O 

4909 PRINT"HAY UN ERROR EN LA CASSETTE”: GOSUB548: GOTO238 
568 INPUTH1,X(1,J):G0TO529 

519 INPUTH1,A(1,J) 

529 NEXTI,J 

538 CLOSEÑ1:G60TO368 

530 PRINT: INPUT"PULSA -RETURN- PARA CONTINUAR" 5EN: RETURN 
559 PRINT:PRINT*ESTAS CONFORME? _(S/N)":PRINT 

52409 MENUS$="SN" : GOSUB99: ONMENUGOTOS79, 589 

579 A="S":RETURN 

586 A="N”": RETURN 

599 PRINT"CONTESTA SOLAMENTE *?S* O *N*":GOTO 569 


699 REM 

ce ia LISTA DE ORDENES 

=3e CLS:PRINT"LAS ORDENES QUE ACEPTA ESTA BASE SON: ” :W=37: GOSUB1 19: GOSUB1 19: PRIN 
649 PRINT"A:A-ADIR FICHAS AL ARCHIVO”: PRINT"B: BUSCAR CIERTAS FICHAS":PRINT"J:JUS 
TIFICAR PARÁ IMPRIMIR*:PRINT*C:CORREGIR UNA FICHA”":PRINT"L:LECTURA EN EL MONITOR 
6596 PRINT"D: DESTRUIR _ UNA FICHA": PRINT"N 


E "N: COMENZAR DE _NUEVO”":PRINT"E;FIN DE_LA SES 
TON" :PRINT"O: ORDENACIÓN ALFANUMERICA": PRINT*G: GRABAR EL RERTODI:PATAR=BE sb 


AMPOS NUMERICOS” 


O 
6798 PRINT:W=37: GOSUB119: GOSUB119 
689 MENUS="ABCDFGIJLNOSH” : GOSUB99: CLS: ONMENUGOTO729, 1189,948, 1950, 129, 1699. 1899. 


MAR C 


799 REM ESCRITURA DE LAS FICHAS 
7298 NI=NI+1:J=N1I 

5349 GOSUB799: GOSUB859 

749 GOSUBS59 

7556 IFA<>"S" THEN739 
5208 PRINT"EN EL ARCHIVO HAY _AHORA*"5NI+1"FICHAS” 

579 PRINT:PRINT"QUIERES ESCRIBIR OTRA FICHA (S/N)?":GOSUBSó69 
588 IFA="S"THEN729ELSE639 

598 CLS:PRINT"FICHA NUMERO";5J+1:PRINT 

896 FORI=8TONF:PRINTD(1); 

819 IFAT(1)="N"THENS30 

826 INPUTA(1,3):X(1,J)=9:G60T0849 

836 INPUTX(1,J3):A11,J)="” 

849 NEXTI: RETURN 

859 CLS:PRINT"LA FICHA NUMERO”;J+1"AHORA DICE: * 

826 PRINT:FORI=9TONF:PRINTD(1)5TAB(12)5 

878 IFAT(1)="N"THENS99 

889 PRINTB;A(1,J):G0TO999 

899 PRINT X(1,3) 

996 NEXTI:PRINT: RETURN 

918 REM 

929 REN CORRECCION DE FICHAS 


REM 
949 INPUT"DIME EL NUMERO _DE LA _ FICHA QUE QUIERES CORREGIR: *5J 
9596 IFJ>BANDI<NI+ZTHENJ=J-1:G60T0979 
959 PRINT"LA FICHA NUMERO"J”NO ESTA EN EL ARCHIVO”: 60TO01999 
979 GOSUBS59 
989 GOSUBSSD 
999 IFAX>"S”" THENGOSUB790: G0T0979 
19069 PRINT:PRINT"QUIERES CORREGIR OTRA FICHA (S/N) ?” : GOSUBS6S 
1019 A rr 


1929 REM 

1939 REM DESTRUCCION DE FICHAS 

1949 REM 

1659 INPUT"DAME EL NUMERO _ DE LA FICHA QUE QUIERES BORRAR” 5 J 


1059 J=3J-1:1FJ>=BANDJ<=NITHEN1989 

1078 PRINT"LA FICHA NUMERO”5J+1"NO ESTA EN EL ARCHIVO":G0TO1138 
1089 IFJ=NITHEN1129ELSEK=J-1 

K=K+1:FORI=8TONF 
A(1,K)=A(1,K+1):X(1,K)=X(1,K+1):NEXTI 
IFK¿NI-1THÉN1D99 

NI=NI-1:PRINT"EL ARCHIVO TIENE AHORA";NI+15 
PRINT:PRINT"QUIERES BORRAR ALGUNA FICHA MAS 
1FA="S: THENIOSAEL O OSO 

REM BUSCAR FICHAS 


REM IRRADIA: 
="PARA BUSCAR” : GOSUB1 289 
PRINT:PRINT"ESCRIBE EL TEXTO QUE BUSCAS: ”5 
IFAT(M)="N"THENINPUTX:L=2: 60T01229 
INPUTA:L=1 
K=9: FORJ=9TONI : ONLGOTO1239 
TFA(M,J)<>ATHEN1269ELSE1250 
IFX(M,J)<>XTHEN1269 
GOSUBS59: GOSUBS48: K=K+1 
1269 NEXTJ:CLS 
1270 PRINT"HAY"5K" FICHAS SEMEJANTES. ” : GOSUBS544: GOTOG39 
1286 PRINT"DIME EL NUMERO DEL CAMPO "A; : INPUTM: IFM<=9ORM>NF + 1 THEN1399 
1298 M=M-1: IFM>=9ANDM<=NF + 1 THENRETURN 

y A NUMERO O CAMPO NO EXISTE”:G0TO1280 
1 E RED 
3 REM ORDENACION ALFANUMERICA 


O A DD 
6 A="PARA ORDENAR” : GOSUB1288: PRINT: PRINT*ESPERA UN POCO. ESTOY ORDENANDO DATO 


5g IFAT(M)="A"THEN1429 
FORI=9TONI:0(1)=1:Y(1)=X(M,1):NEXTI 
378 FORJ=98TONI-1 

386 FORI=J+1TONI: IFY(J)<=Y(1) THEN1419 
399 SWAPY(J),Y(1) 

4598 SWAPO(J),0O(1) 

419 NEXT1.J:50T0639 


pa] 


"FICHAS” 
(S/N)?” : GOSUBSÓS 


1249 


LbuUN-000 JODAS 
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VILA SENSACIONAL ¡ESTREMECEDORA 
REVOLUCIONARIA TOSHIBA HX-10 y 


TOPE EN JUEGOS ,MIXIM 
PARA ELCOLE Y GENIAL PARA 
ENTRARLE A LA INFORMATICA! 











WOILA lo ULTIMO DE LO uCcrI 
XI DEL IMPERIO DEL SOL ro 









1Y SOS VALE 69.500! 
Y ES UNA mies 






Y TAN ERCILLA 
Q1Y TANTOS JUEGOS!P 


yo 
U 


Ordenador Personal 


TOSHIBA HXC10 


Su Ordenado Servidor 


69.500 Ptas. 










1 GUAL PONME 
LA COSECHA! 







A1Y solo 69.500! S 
LISTA De ESPERA, 


Características principales: 
Sistema standard MSX. Memoria de 64 K 
RAM, 32 K ROM y 16 K de pantalla. 16 co- 
lores.73 teclas. 32 sprites. Sistema mul- 
ticolor: 64 x 48 bloques. Sonido: 8 octa- 
vas tres acordes. Conexiones para: casette, 
impresora, 2 mandos y futuras expansiones. 


española de microordenadores s.a. 


Caballero, 79 - Tel. 321 02 12 - Telex 97087 EMOS - 08014 BARCELONA 


do universalmente que permite disponer de una gran variedad de programas y accesorios compatibles entre sí. 


> BASDAT 


1429 FORI=STONI: O(I)=1:B(1)=A(M,1):NEXTI 
1439 FORJ=9TONI-1 

1449 FORI=J+1TONI: IFB(J)<=B(1)THEN1479 
1459 SWAPB(J),B(1) 

1459 SWAPO(J)O(1) 

1479 NEXTI,J:560T0 439 


REM 
1499 REM SUMAR COLUMNAS 


REM 
1519 A="PARA SUMAR” : GOSUB1289 
1529 T=9:K=9: FORI=9TONI 
1539 T=T+X(M,1):K=K+1 


NEXTI 
1559 PRINT:PRINT"EL TOTAL DEL CAMPO -*;5 
1569 PRINTK; "FICHAS SUMADAS" : GOSUBS49:6G 


REM 
1589 28 INDICE GRABACION ARCHIVO 


1699 CLS:PRINT"QUE QUIERES HACER?" :W=37: GOSUB119 

1619 PRINT"GRABAR EL ARCHIVO EN UNA CINTA......i” 

1629 PRINT"LEER LA LISTA DE ORDENES.........+..-.2":W=37:G0SUB119 

1639 MENU$="12":GOSUB 99: ONMENUGOTO1678, 639 

1649 REM 

1659 REM GRABACION EN CINTA 

1669 REM IRRADIA: 

1678 CLS:PRINT"PREPARA EL CASSETTE, PULSA PLAY Y REC”: GOSUBS498: PRINT:PRINT"* 
ESPERA UN MOMENTO POR FAVOR. *:PRINT:PRINT* ESTOY GRABANDO DATOS” 
1684 OPEN"CAS: dei FOROUTPUTASH1 

1699 PRINTHI 


B;5D(M);5 
0TO639 


1709 ORT OTÓNE: PPRINTHA D(1)5","5AT(I):NEXTI 
1719 FORJ=9TONI:FORI=9TONF 

1728 IFAT(I)="N"THEN1749 

1739 PRINTH1,A(1,J3):60T01759 

1748 PRINTHI,XCL, 73) 


1758 CLOSEÑ1:GOTOG639 2 


de 
5 
t 
Ed) 
a 
3 
de 
2 
3 
REM 4 
1788 REM PREPARACION DE LA LECTURA E IMPRESION DEL ARCHIVO 
REM IRRRIRRSRRRRRRRBRRRBAA 
1209 PRINT"QUIERES IMPRIMIR TODO EL ARCHIVO (S/N)?":PRINT: GOSUBS69 $ 
1819 IFA="S"THENI1=9: 12=N1:G0T01859 
1829 INPUT"ESCRIBE El PRIMER NUMERO: "311: INPUT"Y AHORA EL ULTIMO "512 
1839 Ti=11-1:IFI1<9THEN 11=9 
1849 I2=12-1:IFI2>NITHENI2=NI 2 
1859 PRINT"QUIERES LOS NOMBRES DE LOS CAMPOS (S/N)?":GOSUBS69 
18569 IFA="S"THENPF=1ELSEPF=2 
18798 PRINT"QUIERES LOS NUMEROS DE LAS FICHAS (S/N)?":GOSUBS569 
1889 IFA="S"THENPR=1IELSEPR=2 Y 
1898 PRINT "QUE ORDEN PREFIERES?":PRINT:PRINT"NUMERICO........ 1*:PRINT"ALFABETI 
Cd...... 2” :PRINT:MENU$="12": GOSUB99: ONMENUGOTO1999, 1919 
1989 PO=1:G0T01929 
1919 PO=2 2 
1928 PRINT"QUIERES PREPARAR LA IMPRESION DE CIERTA MANERA (S/N)?":PRINT:GOSUBS69 
1939 IFA="S"THENPJ=1ELSEPJ=2 
1949 PRINT"QUIERES CUADRAR LOS CAMPOS NUMERICOS (S/N) ?":PRINT: GOSUBS69 
1959 IFA="N"THEN2919 e 
1969 FOR I=9TONF: IFAT(1)<>"N"THEN1999 
1979 PRINT"CAMPO"31+13*"(S/N)?": GOSUBS69 
1989 IFA="S"THENNF (1)=1:G60T02999 
1999 NF(1)=9 E 
ES 
3 
se 
q 
e 
+ 
a 
m 
al 


NEXT I 
2819 PRINT:PRINT"NUMERO DE LINEAS ENTRE CADA FICHA: 
2929 LB$=INKEYS$: IFLB+$=" * THEN2929ELSELB=VAL (LB$) : CLS 
2839 RETURN 
2049 REM IRRRRODORDDA 
2959 REM JUSTIFICACION 


REM IRRADIA: 
O UN TAB PARA CADA CAMPO” :PRINT" (9 PASA A LA LINEA SIGUIENTE)”: 


2089 FORI=S9TONF:PRINT"TAB PARA EL CAMPO”3I+15 
2999 INPUTT(1):NEXTI:GOTO6G398 
2199 REM 
REM LECTURA EN EL MONITOR 
Y REM RRA 


600 0L£.0.L...£A.A. KRAEOÓQ€XÁX“”—”SC€S€EO OP OGQQ$|RS O CGE OoO0.Oo.-.Oq0,s9 0. O 
po 
N 
QQ 
pas] 


19 
39 GOSUB1899:K=11 
46 IFPO=1THENJ=KELSEJ=0 (K) 

59 IFPR=1THENPRINT* ("3J]+15")" 

68 FORI=9TONF 

78 IFPF=1THENPRINTD(1)5B5TAB(12)5 

89 IFPI<>1THEN2299 

99 IET(I) OTHENT=T (1) ¿PRINTTABIT) 5 

2299 IFAT(1)="N"THEN2229 

2219 PRINTSPC(T(1))5A(1,J3):G0TO2249 

22289 TENE (1) O THENPRINTA CI, 3):G0T02249 

2230 PRINTUSINGF15X(1 

2249 IFI<NEFTHENIFPJ= A HIENIFT(1+1)<>OTHEN2266 
REMPRINT 

2269 NEXTI 

2278 TFLB=9THEN2298ELSE2289 

2289 FORL=1TOLB:PRINT:NEXTL 

2299 K=K+1: IFK<=I2THEN2149 

2399 GOSuB549: 60T0639 


R 
2329 REM CAMBIO NUMERO FICHAS O CAMPO 


REM 
2349 CLS: INPUT"*CUANTAS FICHAS VAS A _N 
MPOS QUIERES EN CADA FICHA”5MF:MF=MF- 


e 


0090 0 0 960 
N 
N 
cn 
a 


MI:MI=MI-1:PRINT: INPUT*CUANTOS CA 


pu FT a 1) 
..( 





CURSO BASIC 











CURSO DE PROGRAMACION 


INTRODUCCION: Hasta ahora en el curso de 
hemos visto instrucciones del Basic, pero lo que no 
hemos visto es la forma de introducirlas en manera 

coherente en una estructura en la que el orden de las 
mismas tenga sentido. 

Para empezar veremos varios tipos de programación. 
Entre los más conocidos están la progración 
estructurada, la programación lineal y la programación 
modular. Primero pasaremos a comentar alguna de 
ellas y más tarde efectuaremos análisis concretos de 

Otras. 


Programación estructu- PROGRAMACION 
rada: Este sistema de programación ESTRUCTURADA 


es mundialmente famoso y se utiliza 
en muchos lenguajes de programación 
como el Cobol, Pascal y Fortran, entre 
otros. 

Esta se basa en desmenuzar un 
problema en estructuras o módulos, 
generalmente tienen dispuestos los 
-mismos de tal forma que representan 
la estructura de un ordenador, Entra- 
da, Salida y unidad de tratamiento. 

Luego individualmente cada módu- 
lo puede dividirse en módulos más 
pequeños hasta llegar a la ramificación 
más pequeña, la instrucción. También 
se utiliza el sistema de etiquetas. Una 
etiqueta es una marca 7 señal que TRATAMIENTO 
nos indica una Operación o serie de 
operaciones a realizar en un momento 
dado. 

Ahora veremos los dos métodos de 
pogramación estructurada más conoci- 
das, el método de Dackson y el de 
Bertini. 

El método Dackson es el más co- 
nocido, se despliega en forma horizon- SALIDA 
tal y en módulos representados por 
rectángulos. 

Las más grandes aplicaciones co- 
merciales se resuelven con este méto- 
do de programación. 
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ENTRADA 





El método Bertini es menos cono- 
cido que el anterior y se despliega 
en forma vertical. Una cosa curiosa 
de este método es que la forma de 
los módulos es un círculo, como po- 
déis comprobar en la ilustración. 

Como podemos observar hay en la 
ilustración una etiqueta que nos marca 
el inicio y el fin del bucle. 


PROGRAMACION 
MODULAR: Esta se basa en 


una serie de diferentes módulos, por 
los cuales se va pasando según sea 
la necesidad. Un truco general es la 
base del programa y desde ahí se 
llama a los módulos. 

Imaginemos que un programa tiene 
tres módulos. Un módulo de entrada 
de datos, otro de tratamiento de datos 
y la última de salida de datos. Con- 
sistirá en ir llamando a todos los 
módulos tantas veces como quéramos 
desde el tronco para luego volver al 
mismo y seguir la ejecución del pro- 
grama. Este sistema o tipo de progra- 
mación es muy fácil de comprender 
porque su estructura es poco compleja 
y muy sencilla de seguir. 


Programación de tipo lineal: Esta 
es muy común en el Basic y se basa 
en la repesentación de un problema 
siguiendo el curso del mismo, como 
podemos observar en el organigrama. 

Esta es la que vamos a seguir para 
aprender a programar con ayuda del 
curso de Basic, primero empezaremos 
por ver los organigramas que son la 
representación gráfica de un proble- 
ma. 

Primero veamos los distintos símbo- 
los utilizados para resolver un proble- 
ma de modo gráfico. 















DIMENSIONA A 
DATOS PARA 


LA 


ENTRADA 
DIMENSIONA B 


RELLENAR LA 
O TABLA 








ORDENAR LA 
TABLA 













PROGRAMA 





EN 
SI GRABAR LA 
TABLA 
SALIDA PANTALLA 


SALIDA IMPRESORA 






SALIDA DE 
DATOS 






Indicador de Inicio: Es la cabecera El rombo representa una pregunta Este símbolo sirve para indicar la 
por donde debe empezarse a seguir y tiene 3 salidas posibles, aunque lo salida del organigrama a una subruti- 


el diagrama. Ninguna flecha llega a normal es verle con dos. 
él y sólo una puede salir de él. 


l 
, SALIDA A 
SUBRUTINA 
TS d NO 
Indicador de final: Deberá de haber 
uno como mínimo. Puede llegar tantas 


flechas a él como convenga, pero 
ninguna puede salir de él. 


na. 














UN BUCLE EN EL SISTEMA BERTINI 


lo 8 


TRATAMIENTO 


NA 


Las líneas de flujo nos indican el 
curso del programa. O sea las direc- 
ciones que forman según avanza el 
mismo. 


El rectángulo significa proceso. O 
sea sirve para hacer todo tipo de 
operaciones matemáticas. 


ETINDUETA 
A=A>+1 
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PHILIPS introduce en España 
el HOMECOMPUTER más sabio, 
el sistema MSX, nuevo estandard 
mundial. 

¡Con cuanta sabiduría se ha 
pensado en cada una de sus 
características! 

Con el PHILIPS MSX puede 
realizar mil combinaciones 
de elementos: monitores, 
impresoras, floppys, programas 
educativos, de juegos y 
aplicaciones profesionales, gracias 
a su compatibilidad total tanto 
en hardware como en software. 

El PHILIPS MSX está tan 
sabiamente diseñado que Vd. 
puede elegir entre conectarlo al 
televisor de su casa, o a un monitor 
monocromo o de color. 

De igual modo puede utilizar 
como unidad de almacenamiento 
de memoria un cassette normal 


o un Floppy Disc del sistema 
MSX. 


E 


AQAARAAMAMANAN 


e 
ss 
0%) 


El sistema más sabio 


¡Y qué potencia tiene el 
PHILIPS MSA! 

Es tanta, que si lo utilizamos 
con un Floppy Disc y junto a 
MSX-DOS, es compatible con 
sistemas de tipo profesional y de 
precio mucho más elevado. 

Y aquí no acaba la sabiduría 
con que ha sido creado el 
PHILIPS MSX. 

Puede hacerlo crecer según 
sus necesidades, desde un 
sencillo ordenador doméstico, 
con el lenguaje Basic más 
potente del mercado, hasta un 
sistema de tipo profesional que 
puede llegar a una capacidad 
máxima de 1.024 K bytes. 

PHILIPS MSX. Nunca se le 
quedará pequeño, nunca se 
le quedará anticuado. 

PHILIPS MSX, creado como un 
equipo atractivo, fácil 
de usar y muy asequible de 
comprar. 


























- Elamigo sabio de la familia. 





MM 
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[FW 


mL 
/ 
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l 
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AQADIAMANA 


WN 
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¡PHILIPS MSX, sin duda, el 
sistema más sabio! 

MSX-DOS es compatible con 
CP/M'* y posee la misma 
estructura de ficheros que 
MS-DOS** 

Todos los sistemas MSX son 
compatibles entre sí. 


MSX, MSX-DOS'Y y MS-DOS'" son marcas 
registradas de Microsof Corp. 

CP/M'M es una marca registrada de Digital 
Research. 


Si desea algún tipo de 
información relacionada con 
el campo del HOMECOMPUTER, 


estamos a su disposición en el teléfono 


(91) 413 22 46 





| Desearía recibir más información 


sobre el PHILIPS MSX. | 
Nombre 

| Apellidos | 
Domicilio 


| PHILIPS IBÉRICA S.A.E. 
Apartado de Correos 50.800 d 
| 28080 MADRID | 


> 


y 
Ú 


A ZA - TAAÁAÁASASA<XÁÉA SS 
— — 


] 

| 

] 
CT 


: 


1) 


mm 
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e 
si 
Inns 
(| 
INN 


=Z == == 


HAN 
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ESPECIFICACIONES 
TECNICAS 


Consola. VG 8010 

Sistema MSX. 

Teclado: Teclado con disposición y separación es- 
tilo profesional de 72 teclas. 

Memoria: 32 K ROM, 48 K RAM (incluyendo 16 
K RAM de vídeo). 

Interconexiones incorporadas: Salida de RE, Sali- 
da Monitor, Interface audio-cassette, 2 conectores 
para controles manuales, 2 ranuras para cartuchos. 


Consola VG 8020 

Sistema MSX. 

Teclado: De recorrido completo, profesional con 
73 teclas. 

Memoria: 32 K ROM, 80 K RAM (incluyendo 16 
K RAM de vídeo). 

Interconexiones incorporadas: Salida de RE, Sali- 
da Monitor, Interface audio-cassette, 2 conecto- 
res para controles manuales, 2 ranuras para car- 
tuchos, Interface para impresora. 


Características comunes 

VG 8010/VG 8020 

Conjuntos de caracteres 253 alfanuméricos y grá- 
ficos (incluye la ñ). 

Procesadores. Principal Z 80 A, Audio AY3-8910, 
Vídeo TMS 9929 A. 

Lenguaje BASIC MSX: 130 instrucciones incorpo- 
rando macrocomandos y sprites. 

Posibilidad máxima de expansión de memoria 
1M. byte. 

Editor de pantalla. 

Utilizando MSX-DOS'" es compatible con 
CP/M'* y tiene la misma estructura de ficheros 
que MS-DOS””. 


Monitor monocromo 

BM 7552 y BM 7502 

Tubo de Imagen: Pantalla de alta resolución de 
12” antideslumbrante, Fósforo P 42. 

Ancho de Banda: 20 MHZ (a —3 dB). 
Resolución: Horizontal: 920 líneas en el centro. 
Vertical: 285 pixels. 

Caracteres en pantalla: 80x25 (2.000) 

Salida Sonora: 0,3 W con 5% de distorsión. 


Impresora de matriz 

VW 0010, 40 columnas y VW 0020 de 80 colum- 
nas. 

Método impresión: Matriz de puntos por impactos. 
Matriz de carácter de 8x8 puntos. 

Paso de caracteres 10,5 cpi y 10 cpi, respectiva- 
mente. 

Velocidad de impresión 35 cps y 37 cps respecti- 
vamente. 

Mecanismo PF alimentación por fricción y trac- 
ción. 


Próximos lanzamientos 

Monitor de color 14”. 

Floppy disc 3/2” 500 K sin formatear (360 K 
formateado). 


Software 

Disponibles en MSX más de 150 títulos entre apli- 
caciones, utilidades, educativos y juegos en so- 
porte ROM,, cassette y floppy de 3/2”. 





ENCIENDE EL 
CIGARRO 


ASPIRA 


ECHA EL HUMO 


SE SI 
ACABADO FIN 
? 
NO 


Conector de entrada en página: 
Este símbolo nos indica que el orga- 
nigrama se sigue en otra hoja donde 
encontraremos de nuevo el mismo 
símnbolo. 





ORGANIGRAMA QUE REPRE- 
SENTA LA ACCION DE FUMAR- 
SE UN CIGARRILLO 


Este símbolo sirve para indicar la 
salida de datos por pantalla. 


Este símbolo sirve para indicar la 
salida de datos impresora. 


ras / 


Durante el curso de programación 
veremos varios programas que resol- 
veremos desde su organigrama a su 
paso al Basic. 


Número que nos distingue los 
distintos conectores. 


Conectores de página: Indican que 
el programa sigue su curso en la mis- 
ma página pero en otro lugar de la 
misma. 
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PROGRAM AS —————————_____KKK<K<K<X<—<K<K42<2<4<X<XKXKAAA 


En a 
e J.L.PEREZ MADRIGAL 
Ed LINEA 


9 09 Y Os UN E 0) 
A 
m 


12) ON INTERVAL=69998 GOSUB 689 
29 INTERVAL ON 
DEC=9 


v=3 

58 OPEN”"GRP: "ASH1 

60 Y=INT (RAD(1)%229) +18: 
79 SCREEN 2 «COLOR 15 
99 LINES, 16)2(250, 19271 
119 GOSUB 799 

128 D= INTI(RND (196) 41 

139 PRESET (39 ¡PRINT H1,"LIVES=";V 
149 IF D=1 PHÉN ads 19 

159 IF D=5 THEN GOSUB 308 

=7 THEN GOSUB 399 

179 1F D=3 THEN GOSUB 489 

189 PSET(Y,X),1 | 

199 GOTO 129 

2648 MEXT 

216 FOR T=X TOLY STEP-1 

229 PSET(Y,T),15 

239 D=STICK(9) 

249 DEC=DEC+.1 

259 IF D=7 THEN X=T:GOSUB 399 

266 1F D=3 THEN X=T:GOSUB 4889 

278 1F POINT(Y,T-1)=15THEN GOTO 579 


X=1 
6d 
5,B 


349 IF D=7? THEN X=T:GOSUB 399 
3589 IF D=3 THEN X=T:GOSUB 489 
369 IF POINT (Y, , T+1)=15THEN GOTO 579 


Y 
449 IF D=5 THEN Y 
5 


459 IF POINT(T-1 

469 NEXT 

479 GOTO 579 

489 FOR T=Y TO 256 

3509 D=STICK (9) 

529 IF D=1 THEN Y=T:GOSUB 219 

530 IF D=5 THEN Y=T:GOSUB 399 

549 IF POINT(T+1,X)=15THEN GOTO 579 


541 PSET(T,X),15 
559 NEXT 


1 
649 IF V=9 THEN GOTO 669 
659 GOTO 69 


NT(RND(1)X179)+19 


line a 
CONSISTE en resistir dos minutos 
| 


en la pantalla con nuestra 


tando 
línea recorriendo la ciudad ev! 


chocar con nuestra estela 
| 


o con los edificios. 


669 LINE (49,59)-(199,75),12,BF:PRESET (59,60) ,19:PRINTH1, "WINS THE COMPUTER” 


679 INTERVALOFF:GOTO 479 


689 LINE (49,59) -(199,75),12,BF:PRESET(59,69) , 


6948 GOTO 1909 


799 LINE (39,38) (58,48) ,15,B_ 

719 LINE(798,179)-(199, 18977 15,B 
729 LINE(240,49)-(245,780) 1578 

739 LINE(59,199)-(199,110),15,B 
749 LINE(120,49)-(1390,70),15,B 

759 LINE(69,59)-(78,9B),15,B 

769 LINE(159,80)-11889 00) ,15,8 

7746 LINE(299, 1590)-(249,160),15,B 
789 LINE(139,149)-(149;,189),15,B 
799 LINE(29 199) - (58,159),15,B 

268 LINE(170,20)-(200,39),15,B 

819 LINE(179 10 (215 12b),15,B 
329 LINE(70,140)-(109,150),15,B 
834 LINE(128,99)-(135,139),15,B 
849 LINE(169,145)-(170,175),15,B 
2598 CIRCLE (95,38),18,15,,,1,4 

369 CIRCLE(25.95),198,15,,,1.4 

879 CIRCLE (215,79),15,15,,,1.4 

289 CIRCLE(280,192),28,15,,3.14,1.4 
899 CIRCLE (230,11),29,15,3.14,,1.4 
909 CIRCLE(256,96),20,15,1.6,4.7,1.4 
919 CIRCLE(38,192),20,15,,3.14,1.4 
928 RETURN 


1009 LINE (49 
1919 GOTO 1919 
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19: PRINTH1, "WINS YOU, 'GREAT! ” 


75) -(198,87),12,BF:PRESET(79,77),12:PRINTH1, "PUNTOS=" 5 DEC 








«PESETAS EN LETRA> 


POR GENTILEZA DE 
INFOCENTRO O 0 
ESTIMADOS pe cer 
12] la ruta de A, 
os ofreccll una rutina ol 
conil «pesetas numéri 
A «pesetas literales». $ 
S qe cabeza la pierde a pa 
del billón de pesetas de 
(pobrecita... no ha cn ape 
obal tanto dinero jun sida . 
llega a esa ci Pe 
ef is dao en la an 
; Es muy útil en poa > 
mediciones y presupuestos 


: 9200 13 
] destinado a 


Ea e 
ofrecer prep haya 
. a O en OS 
alquier tipo, | de 
due pando cantidades 


dinero. 


9990 4 E ir, 
10000 LOCATE 0,5:PRINT CS:LOCATE 0,20 


1... 0CENT R a 


CON 100. ., ] N F 0 A AAA Ludo. 
AA "EL CENTRO DE LA ENSEÑANZA INFORMATICA" A, 
9520 y APA II ALMERIA o Parr.» Lor... 
9530 ; ...., A Paseg de Almeria d, 1-E ...000t 1. % PEC . 
7340 * 

o AA , ES dio CONVERTIDOR NÚMERICO .., 


9360 CLEAR 2000 

9570 DATA A O SEI SEE Sua 

9580 DATA E 
9590 DATA a CC Ses 


0 DATA a CESE CI Ja 
9605 DATA 610 CLENTAS,OCHOCIENTAS. NOVECIENTA 
1,0$19) 


7540 FOR X=] 10 9: READ D$(X%): NExT X1 


7650 FOR XY= TO 9: READ CSIX1): NEXT Xy 

, A ee ie tttrrrss.+*.<... entrada MuBerica ,,, 
9670 * 
9680 CLS:LOCATE 0,0:PRINT SPC130):LOCATE 0,0: INPUT "Pesetas"; y:> EL ININAR «7680, 
9690 E MS=STRS(N):ES=SPACES y) ag os trovossos... EN CASO DE... 

CENINSI=UNS=RIGHTS(NS Ly) A da, iso UTILIZAR 6 

9710 1F 12212 THEN BEEP: 60710  óS a SUBRUTINA....... ió 
9720 * 
se ATAN A LES PRA e A cd CONVERSION nee 
9740 FOR P3=L y TO 1 STEP --1 
9750 XU=X 441 
9760 UNS=VAL (MTDS (NS, xy, 1)) 
9770 1F P2/3=INT(Px/3) THEN 9790 
92780 1F Pi=11 08 P1=8 GR P3=5 0R P3=2 THEN 9830 ELSE 9840 
9790 * os SE CIENTOS .., 
9800 1F VN3=0 THEN 9980 


7810 IF YN%=1 AND MIOS INS, X3+1,1)="99 ppp HIDS (NS, X342, 1)=0p0 THEN Cs=C$4"cIEN ». 
PSPA-2: X0=X442: 6070 9920 

9820 CS=CSHCSIUNS) +ES:G0TO 9980 

iia 


TIA DECENAS .., 
OSOS SPA) HS: PE=PY- 10 =p 


9840 1F YNi=1 

60TO 992 
7850 CS=C$*DS (UNS) +ES:G0Tp 7980 
7860 * 


THEN SPASVAL UNIDOS (NS, Xh 01,1) 
0 


UNIDADES ... 


7890 IF L%=4 AND P%=4 THEN CS=USCUNA) +ES: GOTO 9920 
INS, X3-1,1)="p0 THEN CS=CStUSIUNY) +ES: GOTO 9920 


9910 1F L%=1 THEN CS=CS+HUS(UNY) seg ELSE C$=C$4ry "+US (UNT) +ES 


9920 APO o A 
9930 IF Lg 7 OR PE THEN 9959 
7940 1F YNz=0 AND HIDS(NS,X3-1, 1)==p0 AND HIDSINS,X3-2, 1)==p0 THEN 9980 


7950 IF (P2=10 AND L2=10) OR (P4=4 AND L3=4) AND HIDS (NS, XY, 1)=" > THEN C$="M71 e 
SOTO 9980 


7960 1F Py=10 OR P3=4 THEN C$=C$*" MIL "6070 9980 
9970 1F Py=7 THEN 1F HIDS (NS, X%, [)="po THEN LMISLEN (CS): 
CS=LEFTS(CS,LIG-3)+*yy MILLON *:50TO 7980 ELSE C$=C5+" 
XT Py 


oro. “=*..... APELATIVOS e. 


MILLONES "6070 9980 
RETURN , 


£n Caso de Subrutina ey 
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-— JUEGO 


DEL MES 


KIRIKI 


EL objeto del juego es con- 
seguir mantener a nuestra se- 
ductora compañera lo más 
fresquita posible (con el calor 
del verano...). 

Las normas del mismo 
son: 

— Cuando salgan en pan- 
talla los dados has de sumar 
los puntos y luego introducir- 
los en el ordenador (Tam- 
bién puedes mentir y dar una 
puntuación superior a la ob- 
tenida). 

— Si consigues convencer- 
la, ella te dará su puntuación 
(siempre superior a la tuya) 
que podrá ser también en 
engaño (es lo que tienen las 
mujeres bonitas). 

— En el caso de que uno 
de los dos mienta y se des- 
cubra su mentira perderá la 
jugada al igual que si no os 
creáis lo del contrario y re- 
sulte ser verdad. 

— En el momento en que 
uno de los dos consiga un 
negro y un rojo gana verdad. 

— En el momento en que 
uno de los dos “consiga un 
negro y un rojo gana inme- 
diatamente la jugada (ha he- 
cho KIRIKI). 

— El juego termina cuan- 
do uno de los dos llegue a 
las 10 jugadas ganadas. 

La puntuación y la deno- 
minación es: 
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Las parejas son: 


La mayor puntuación abarca 
a todas las menores. 


4 - DAMAS 
5 - REYES 


1-NEGROS  Q 
2 - ROJOS A 
3 - JOTAS 










PN (pareja de Negras) 
PR (pareja de Rojos) 
PJ (pareja de Jotas) 

PO (pareja de Damas) 
PK (pareja de Reyes) 
PA (pareja de Ases) 
KK (Kiriki) 





LUNA 3 


HABIAN pasado dos ho- 
ras y la computadora central 
seguía sin funcionar. Aquél 
campo de energía había 
afectado a la estabilidad de 
la nave más de lo que creía- 
mos. Seguíamos descendien- 
do y, llegado el momento, 
tendríamos que hacer uso 
de los controles manuales. 
Todos estabamos aterroriza- 
dos: el aterrizaje siempre lo 
había hecho el ordenador 
central, y ahora no era sino 
un montón de chatarra estéril. 

En Rocket Mountains ha- 
bíamos aprendido a manejar 
la cápsula con relativa faci- 
lidad: la barra espaciadora 
para arriba y el cursor iz- 
quiero para el mismo senti- 
do. Todo era sencillo en el 
simulador de vuelo. 

Pero ahora no había simu- 
lación. En algún lugar de 
aquel planeta se encontraba 
la base de aterrizaje y, po- 
siblemente, la muerte. 








George fue el encargado 
de efectuar la maniobra. 
Con manos sudorosas y tor- 
pes conectó los retropropul- 
sores: ¡Había comenzado la 
cuenta atrás! Lentamemte, 
la nave descendió, hasta que 
un pequeño descuido provo- 
có una enorme explosión. 
Esta vez no habíamos tenido 
suerte. Desconectamos el 
MSX y decidimos volver a 
intentarlo al día siguiente. 





EL AHORCADO 


EL juego del ahorcado es 
un juego muy popular al que 
jugabamos cuando eramos 
pequeños con papel y boli 
(entonces no había tantos 
adelantos). 

Este juego tiene dos mo- 
dalidades la tradicional, que 
consiste en jugar con un 
compañero, O la actual que 
consiste en jugar contra el 
ordenador. 

Al empezar el juego sal- 
drá una pantalla donde dice: 
¿Quieres jugar conmigo?, 
en caso positivo jugaras con 
el ordenador, en caso nega- 
tivo con un compañero. Uso 
mayúsculas. 

Ten cuidado, las garras de 
Dayana pueden ser peligro- 
sas. ¡SUERTE! 
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PROGRAMAS 
















perez Madrigal 


a ¿COLOR 5,1,1 W 
29 se 
1 9311999 
0999191922 
1999919920 
0031111111 e 
11991 
111991 
11999 á 











| E 
taOS 
| 170912981920 
2008! dass! T 
1991229222 RAS elegi 
| 001911990928 d eglr el t , 
| 00 paar aao 0 Zo uración d 1eMpo de > 
0977990202 el parti 
| nombre partido se da á 
CHAS ( aLcrBr tLEFRT (56,81)? S y se em : ; el 
CHRS (Y AN e mueve co pieza a jugar s 
s9)=0t temáti n el curso : 
an a ¿0d 
ga 1 ga99991992 jugador C a regatear 3 
11999111112 ord ontrolad 
1119191911121 rdenador O por el 
nasa ju y meterte “y 
1311999192) jugador en | con tu 
aeaadse jugador A 
LaS8 ión auaate izquierda de la p ituada > $ 
antalla 
» N A 


, , , 
99 LINELLA 138) -(21 119), 1 
1:€ DB: PRINTML>* e MEXICO g6 +” 
LINE ( (73) - (2561 22 = 
1: OLOR AA Pi 1 - ns; "3 SOLES” 


a42),1* 

g ¿52 14 256,52)13 

960 IESETI12, 96, 12 COLOR 6: PRINTHL -COPYRIGTH RORO 1985" 
79 PRESET (29 182) 12: COLOR PRINTHI TIMES” 
eg COLOR s:L 182,9, 189) 102 199),6» 

999 eo 


g 

639 DATA 19209029 

299 FOR TS! 70 8: READ A 
1199 PUT SPRITE at 1,X0 519 2> o 1 





18 


























A 
NN mas — 
ON-Q0oy ya 
QUIN IN 


IF D=3 THEN Y=Y+1:PUT SPRITE 9,(8,9),9,9: PUT SPRITE 1,(8,9),9,1:PUT SPRITE 
Xx),1,3:N=3:K=11 

1F"D22 THEN yz Y+1:X=X-1 

1F D=4 THEN y=Y+1:X=X+1 

1F D=8 THEN y=Y-1:X=X-1 

LE D=ó6 THEN Y=Y-1:X=%* 

IF L=1 THEN p=9:B=Y+4:A=X+11 


+11 
IF X+11=A AND Y=B AND N=1 THEN K=-3:L=1 
F X+11=A_OR x+11=A-1 OR x+11=A+1 AND Y+8=B AND N=3 THEN L=1 


S 

PUT SPRITE N, (Y,X)21 

O e 1THEN PUT DATtE 4,(9,9),9, 94: PUT SPRITE 5, (1,8),15»3: =5:F=-3 

IF E=1 THEN PUT SPRITE 5) (9,9),9,5:PUT SPRITE A nl 
(1 


E 

lF s+11=A_AND 1=B+4 THEN 1=1-5:5=S+5: PUT SPRITE H, ,8),15,H:1=2:P=1 

puT SPRITE H, (1,5) 15,H 
AND 13Y+5 TÁEN E=-1 


1F P=9 

IF P=9 AND sS>x THEN W=- 

IF P=9 AND S<X THEN _W=1 

1F P=9 AND 1<Y+8 THEN E=1 

IF S=X T Ww=9 

1F P=1 THEN 1F 1>25 THEN E=-1 

1F P=1 THEN IF S<199 THEN W=1 

IF P=1 THEN 1F S>129 THEN _W=-1 
1F Y<25 AND L=1 THEN GOSUB 1449 
1F 1:25 AND L=2 THEN GOSUB 1469 
pe 100 ANDE GZ [iExnetTan, 180) (TIM 1901920 
1F M<=9THEN GOTO 1649 

GOTO 1118 

IF A>119 ANDAX 139 THEN GOTO 1489 


L=2: RETURN 
IF A>119 ANDA< 139 THEN GOTO 1569 
L=1: RETURN 
RE 
y=149:X=195 

1=94:5=195 

=116:A=117 


CT, e ss, a cn. 1 encore 20 18: PRINTHL, 62 


FOR A=1 TO 2: SOUND g,179 


111199 
Ay=1 102999: NEXT DELAY 


NEX 

LINE (9, 189) - (256 192),15,BF 

PRESET (28,182) 15:PRINTAL, “FIN DEL PARTIDO” 

FOR T1=9 TÓ 2590: NEXT 

A A 


1839 . : 
1838 (5) =ES: SPRITES (9) 55 


ya e pe mn e 


UNNANNNNNIN 
UA 


2299 


CLS:LINE(9,9)- (256 192),1,BF 

COLOR 5: PRESET(19 59) PRINTRL, "RESULTADO" 

COLOR i8,48),1:PRINTAL,NESOS 

PRESET(19 49 TU RINTHL) “COMPUTER 104 

LF 61>62 THEN L:PRINTOA 89), 1:PRINTAL, ¿ORSAE -:ns;* HAS GANADO” 


1F 62=61 THEN PRESET (19,89), 1:PRINTAL> ¿HAS EMPATADO ";N$ 
1F G2>Gl THEN PRESET (19,8 ),1:PRINTHI = HAS PERDIDO =;Ns;” LO SIENTO” 
E e a INral, ne) 0= 5015 IGOnPoTE OE 


1929 
CIRCLE (29,29) ,8, 15 1.4 

18,17 "¿COLOR 15:PRINTHL 
sRESErtIO 12) L:BRINTOL, “PRESENTA 
DRAW"BM59, 79” 
DRAN Boa 2SU1gRIGUSLIGUSALDUSI AS” 
DRAW"BM79, 79" 
A D25R1SUZSLSD2OLSUZOL O" 
DRAW" BM99,79” 
A CSR1SDSLID2GLSUZ2L SUS” 
DRAW*BM118,78* 
Ae 13RSF6G6D1FÉGELSU25" 
DRAW*BM139,78" 
DC Au"C12R15UDZ5L15U25" 
DRAW*BM135,75" 
RAW" C12RSDISLSU1LS* 
DRAW"BM159,78* 
yt CORSDZIRIDSLI DUES! 
De 49,60)- (178,195), 15,2 


FOR 1 
PRESET (32 159), 1: COLOR 19: PRINTHL, *COPYRIGTH RORO 1985” 


03" 


T=9 TO 259: NEXT 
PRESET (39 158) ,1: COLOR 1:PRINTM1, *COPYRIGTH RORO 1985” 
FOR T1=9 TÓ 258: NEXT 


NEXT 

NEXT 1 64V1305CEGADFBO6CL2C" 

COR 1=9 TO 1598: NEXT 

LINE (9,9)-(256,192) 1,BF 

_COLOR E UN MI 


PRESET(18,58), 13 PRINTN1+ 22) UN MINUTO” 
RESET 119,78), 1:PRINTAL> 13) DOS MINUTOS” 
PRESET (18,99), 1:PRINTN1, "3 TRES MINUTOS” 


Y 
IF As="1” THEN TIM=129:M=69: GOTO 2299 
IF AS="2* THEN 71m=189:M=129: GOTO 2299 
IF AS="3” THEN T1Im=249:M=189: GOTO 2299 


249 

INE (8,9)-(256, 192) 1,BF 

SCREEN 98: COLOR 5,15) 

LOCATE 5,9: INPUT 4 NOMBRE ?";N8 
IF LEN(NS$)>8 THEN CcLS:GOTO_2318 
CLS: SCREEN 2: COLOR 5,1,1:RETURN 


e 


A a A A 
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dr 


MONSER 





Con la marca Monser sobre el cassette, usted obtiene no solame ente cinta para computador, 
sino también una cassette que le proporciona todas las funciones y conveniencias que requiera el usuario. El 
cassette para ordenadores personales Monser está diseñado para ser usado con microcomputadores y provee una 
combinación única de precisión y ejecución. 


DE VENTA EN TIENDAS ESPECIALIZADAS. 
Para envios dirigirse a Monser, S.A. q/ Argos n2 9. Tlf. 742 72 12 / 96. 


PROGRAMAS 











programa es que Sl pulsas el 


TIENES ánicamente Ocho 
notas para tocat- El uno €s 
DO, el dos €s RE el tres MI 
etc... La característica del 


y > MONSER) 5 + A- punto (la tecla del), se repite 
7 REM 3.1L.PEREZ MADRIGAL lo que has tocado, luego paté 
E REN PIANO volver a tocar S€ pulsa la barra 
1gG DIM BF (599) espaciadora. 
| 29 SCREEN 2 3: COLOR 115,1 

282 Ag=A$+CHR$ (255) 


NEXT 

594 SPRITES(2)=A8 

6 FOR 1=9 TO 256 STEP OILINE(T+199)- (118, 123)51 BF:NEXT_T 
29 FOR_T=4 TO 556 STEP 198:LIN (11199) -11+4,16 ys hs X% 

59 FOR TSS, 29) - (206,80) +6» 8" 


Y=72 
78 2 59,29) - (206,80) 117 a: LINE(O, 100) - (256,991, 
89 LINE (SO 20)7 (186,78) +1,8 


199 IF as="1" THEN PLAY"V1SO5L6IC, 
119 1F As="2" THEN PLAY "V15O5L64D, 
129 IF A$="3” THEN Lay "v1i5OsL6sE, 
g 1F as="4” THEN PLAY "V1IS5OS5L64F, 


P y"y1505L64B, 
179 1F As="8” THEN DLAY"V1506L64C" 
as=".” THEN GOTO 399 


A A o a 
rencia 
A A a A XA 
o 
ct 


229 1F A$="3" THEN =Z+1 
239 1F Aas="4* THEN =Z+1 
249 I1F as="5” THEN z=Z+1 
259 1F as="6" THEN =Z+1 
268 IF as="7" THEN =Z+1 
279. .14 As="8" THEN =Z+1 
289 1F as="1" THEN Y=72 

299 1F Ag="2" THEN Y=82 

3049 IF as="3" THEN Y=22 

319 IF as="4" THEN Y=192 
2329 IF as="5” THEN y=112 
339 IF ="6" THEN y=122Z 


359 IF A="8" THEN Y=1 2 
229 PUT SPRITE 0 (Y-2,170),1,2 
389 GOTO 22 


398 FOR g=1 TO 2 

499 1F ps1s)="1" THEN PLAY"V1SOS5L32C, 
419 IF pp (Ss)="2" THE PLAY "V1SO5L32D, 
429 1F B4(5s)="3” THEN PL "»Y15O5L32E”, 
4398 IF Bp15)="4" THEN LAY" V1ISOSL3ZF, 
444 1F ps(S)="5" THEN LAY *V15O5L326, 
459 IF ps(s)="6" THEN PL "y15O5L3ZA” 
469 IF p4(1Ss)=*"?2" HEN LAY" V1S5O5SL32B, 
4798 IF B$ (5) "» THEN PLAY"V1i506L320 
489 FOR T=9 TO 199: NEXT T:NEX 

499 CLEAR 
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PROGRAMAS 








REM MONSER,S-A- 
REM pa 
REM J.L.PEREZ MADRIGAL 


REM 
REM MORSE 
REM 
REM 
DIM A$ (500) : DIM U$ (599) 
a KEY OFF 


CcLS 

SCREEN G:COLOR 1,15 1: WIDTH 49 

46 PRINT"ESTO ES UN TRANSFERIDOR DE MORSE” 
56 PRINT 

608 PRINT"SE TIENEN DOS OPCIONES: " 


PRINT 
39 di PASAR A CODIGO MORSE UN MENSAJE” 
160 PRINT"2)- TRADUCCION DE MENSAJE EN MORSE ” 


PRINT 
129 INPUT"OPCION(1/2)"3h 
139 IF A<1 OR A>2 THEN 129 


po 9 09 Y 0 UN E 
a 


Nr 
ar- 


ES un programa traductor o 


188 E RINT="PULSA UNA TECLÓ con 

. ” Versor A 
LOL E INKEYS$="" THEN 169 mot de mensajes en 
155 1F A=2 THEN GOTO 868 , traspasa O traduce los 
188 CLS _, , mensajes en morse a |] 
1989 PRINT"REGLAS DE MANEJO no enguaje 
299 PRINT al y viceversa. 
510 PRINT"DEBES PONER LETRA POR LETRA” 


PRINT*EL NUMERO DE LETRAS NO PUEDE SER ?> 599" 
20 MARQUE LOS ESPACIOS” 

PRINT"PONGA EL TECLADO EN MAYUSCULAS”: 
PRINT"PARA VER LA TRADUCCION PULSE: GR+SH+ -” 













o 599 
¿137 INPUT LETRAS "ISS 
c$="B" THEN GOTO 399 


389 LOCATE 9,12:PRINT! “ 
326 LOCATE 3) 15:PRINT"LETRA N7"3T 


A: € A A 
d A SE e 
De ARE 
NINNNNNNN 
00D UN 
SOQNSADNaRNa 












399 FOR G= 1 SEN al 
409 BS=AS(6G 
419 IF "A" THEN UE (G6)="4h” 
429 1F $="B" THEN yu (6)=" yd" 
439 1F B*=" "THEN yu 5 (G)=" HAD 
449 IF B ="" THEN U 5 (G)=" HER” 
450 IF B$="D"THEN UE (6)=" Hi" 
469 IF $="E" THEN Ue (6)=" Y" 
479 IF ="F" THEN us (G6)=" 4d” 
489 IF $="G" THEN UE (G)=" EV" 
499 IF B ="H” THEN ye (6)=" 44 id" 
599 1F Bs$="1"THEN ue6(6)=" Wy" 
sig I1F B4$="J" THEN Us (G)=" YA re” 
529 1F B9$="K" THEN U6(G)=" HAYA" | 
5390 IF Bs$="L "THEN YU 5 (G)=" YY” i 
IF $="M" THEN U 4 (G)="-dh” | 
IF B ="N" THEN Ue (G)=" my” 
IF a THEN VB (G6)=" Hey Re” 
1F $="0" THEN U$(G)=" RF” 
IF B ="P"THEN U 5 (G)=" Yer” 
IF $="R"THEN Ue (6)=" yd" 
IF B$=" "THEN ye (16)=" 4H" 
1F BS$="T"THE us$ (6)="+” 
LF $="U" THEN Us (6)=" Yeh" 
IF BS$="V"THE ue (G6)=" Ye” 
1F ="W" THEN U$ (G)=" Y AR" 
1F $="X" THEN y (G)=" HA" 
1F ="Y" THEN YU 5 (G)=" IRA" 
1F B$="Z"THEN y 5 (G)=" ed" 
dE Bs=". "THEN ue (6)=" YI A” 








MSX 


709 PRINT 
719 FOR" RSINT "TRADUCCION: 

329 FOR M=g TO 6 

739 PRINT V5(M) As (m) 

749 PRINT: FOR 2=9 710 599: NEXT Z3NEXT mM 


258 PRINT 
768 FOR T=8 To 1599: Nexy T "SCREEN £7 COLOR 1,15 
>68 ERINT"Para VOLVER AL MENU PULSE: [» 


790 SERRA VOLVER A VER LA TRADUCCION PULSA: 2» 


3815 IF A$b=" ju THEN GOTO 349 
829 IF X$="2u THEN GOTO 859 


349 CLEAR: GOTO 19 

259 £LS: GOTO 3811 

869 CLUs 

379 SRINT"REGLAS DE MANEJO" 

3889 PRINT 

399 PRINT*"EL PUNTO ES IGUAL A A E 
PRINT 


928 LOCATE 3 12: PRINT*LETRA N>";7 
1818 GÓCATE 0,18: PRIMyS "¿NEXT y 


N 
1199 1F B$=" «2. "TH V$(k)=2pu 
1110 175 B+=" (+ "THENVS (k) 305 
1129 1 Bé=" cc 57 THENOS (y oO, 
1139 IF E ER VB(K)=0w 70 
1149 IF Becas LL "THEN VB(k)=u 71 
1159 IF D$="7. / "THEN VB(K)=w5j5 
11609 1F ES SC RTREN VB(K)=%] a 
1179 IF Bé=" 7/2 THEN Vb(K)=% yu 
1189 IF B$="7_ "3 EN V$5(K)==pu 
1198 IF Pa RESTE UB(k)=5 0 
1209 IF DS="//7 "THEN VB(K)=2=pgu 
1219 IF B$="_77 5 HEN VB(k)=5pw 
1229 IF Bé=" 7.7 EN VB (K)==pu 
1238 IF PS VB(k)="G0 
1249 1F B$="727y VB (K)==7u 
1529 IF Bé=".. ¿ny EN VB(k)="]yu 
1269 IF Bé=" nm HEN VB (K)=%yu 
1279 IF Bb="_ 71 EN VB5(Kk)="pyu 
1289 IF B+=" * - /*THEN VB (K)=%3% 0 
1299 tF APO THER VB (K)== yw 
1309 IF Bh="7/" Y VB(k)=2=>0 

p ge 





g E 
330 PRI RINT"TRADUCC TON» 
1349 PRINT 
1359 FOR L=g TO k 


1369 PRINT (L),AS(L) 
1379 PRINT: FOR W=59 To 3509: NEXT WINEXT | 
1389 PRINT 

1398 PRINT SI DESEAS VERLO Pulsa 31 oye 





1330 1F Re=n y? FIEN GOTO 1339 0 
(399 1F Rá=as. THEN GOTO 1322 ARRE 
1322 GOTO 1455 23 


5960 CLEAR: 6070 19 


| = A 
RATO o 





E RSSSSETTE PARA TEC 


áimeros Romanos 
Ataque Espacial 


Esqui Alpino 


Globos 
Robot 


Saboteador 


Roland Garros 
Arquero 


Codigo 


'MONSER 


' 
! 
-— WE - 











PROGRAMAS 











REM MONSER,S.A. 
REM Y 

REM J.L.PEREZ MADRIGAL 
REM 

REM SPACE 

REM 


£  OPEN"grp:"ASH1 
g SCREEN2:9:COLOR 5,1,1 
; | 


GOSUB 499 

46 DATA 91119999 

539 DATA 99100990 

56 DATA S1111119 

70 DATA 00190099 

380 DATA 81119909 

98 DATA 11111111 

199 DATA 0088DOBS 

119 FOR T=1 TO 8:READS$: A$=A$+CHR$ (VAL ("RkB"+S%$)) : NEXT: SPRITES (9) =A$ 

129 X=50: AB=151:B=59:6=39: PAN=9 

Ea ias 1.6, PRINT H1,"MUNICION”:LINE(25,189)-(152,199),15,B:LINE(199,18 

1398 FOR L=1 To 6: CIRCLE (INT(RND(1)4249)+18, INT(RND(1)*165)+19),3,15,,,1.9:NEXT:L 

INE (9, X- 257-138 +15), 

131 PRESET(238, 182) ¡PAINT H1, "MUNICION":LINE(25,189)-(152,199),15,B:LINE(199,18 
-(AB+1,189),19,B 

2 LINE(AB, EA q 189),1,BF 

GS FOR T=9' 710 256 


1 ei 





6 T=T+1 

g D=STICK(9):A$=INKEYS 

g9 1F D=1 THEN X=X-1 

GS 1F D=5 THEN X=X+1 
209 1F D=3 THEN T=T+1 SS 
2180 1F D=7? THEN T=T-1 > 
229 Z=POINT(T+9,X-1):K=POINT (T+9,X+8) 
230 PUN=PUN+ 1 
249 IF Z=15 OR K=15 THEN GOTO 329 
241 IF B<=9 THEN GOTO 269 


250 1F At="0"” OR A$=" A THEN GOSUB 3698 
269 PUT SPRITEY, (T,X) 

278 1F PAN=19 THEN Coto” 439 

289 NEXT 

299 PAN=PAN+1 

399 PUN=PUN+199 

319 GOTO 159 


SCREEN 3 
339 PRESET (59,59), 1:PRINTH1, “SCORE” 
349 PRESET (45 5,120),1:PRINT hi, PUN 
GOTO 359 





369 LINE (T+9,X-1)-(T+59,X+1),6,BF 

379 LIN (T+9; X+3)-(T1+39, X+5), E, BF 

3809 LINE(T+9; X+7)-(T1+59, At9), 5d BF 

399 LINE (T+9; > 1)-(T+59, RELE BF 

409 LINE(T+9; X+3) -(T+39; x+5),1,BF 

419 LINE (T+9; X+7)-(T+59,X+9) SL BF 

420 B=B-1:ABSAB- 1:LINE(AB, 181)-(AB+1, 189),1,B 
421 RETURN 


U 
4358 SCREEN 3 

449 PRESET(88, 39)» l: PRINT yo 

459 PRESET (65,99), 1:PRINT 1999" 

469 PRESET(59,149),1 PRIMTA] " BONUS” 

479 PUN=PUN+ 1599: 6 A PAN=5 

489 FOR T=9 TO 2009: NEXT:SCREEN 2:COLOR 5 


GOTO 139 
499 PRESET(55,19),1: A leon RORO” 158 3" 


588 CIRCLE(128,190),28,19,,,1. 

519 PAINT(128,190) 15 

528 1IA=6.28/20 

539 A=9 

549 FOR VC=1 TO 29 

559 Y=128+58XSIN(A) 

560 X=199+58XCOS(A) 

579 LINE(128,199)-(Y,X),19 

5890 A=A+IA 

599 NEXT 

60698 FOR T=9 TO 2090: NEXT 

619 CLS 

629 PRESET(29,19),1:PRINTH1, "MISION" 

639 PRESET(39,29),1:PRINTH1, "900000 

649 PRESET(19,49),1:PRINTH1, "ESQUIVA LOS METEOROS" 
659 PRESET(19,79),1:PRINTH1, "DISPARAS CON 3 Q 

669 PRESET(19,119),1:PRINTHÍ, “MUEVES CON EL. CURSOR” 
679 PRESET(19) 140) 1: PRINTR1? "ESTE MENSAJE SE AUTODESTRUIRA" 
689 PRESET(19,170),1:PRINTH1,"!!! BUENA SUERTE '!!” 


699 FOR T=9 TÚ 2908: NEXT 

709 LINE(9,0)-(256,1972) 

759 PRESET(199,90),1: PRINTRL, = 4READY?" 
769 FOR T=9 TO 1596: NEXT:CLS? RETURN 
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PROGRAMAS 




















FRONTON 


2 REM dicas: EAN SE mueve con el curso! y hay 

7 EM 1 E AREREZ MADRIDAS : 

7 REM que evitar que se nos escape 3 
a REN FRONTON la pelota. 





g 

29 SCREEN 1,3: COLOR_5 lid 

384 DATA EEN, 1,91507192,192, 192) 125» 152 
35 DATA 192,192,122 192,192» 
5g DATA 96,249 249,96,9,9,9,9 


Go Y=299:X=199 RN 


TO 8 

169 READ 1 TOO CURSA) INEXT:SPRITES (1) 8% | 
3.G:PRINT_A > 
129 LOCATE 18,9:PRINT_A 

139 LOCA TE os 8: Y1=158; X1=100:PUY SPRITE 1, (11,X1),13,1 
149 ON SPRITE GOSUB 379 

159 SPRITE ON 
129 LOCATE 19 9: PRINT"SCORE” 
178 FOR_T= Tb 599: NEXT 


1F D= -5 
559 PUT SPRITE 9, (Y X),19,9 
79 x1=X1+X2:v1=114 12 


259 PUT SPRITE 1 (Y1,X1),13 1 

269 I1F Y 1 <290R x1<25 OR 21>175 THEN GOSUB 299 

2798 IF y1>259 THEN Y=4+ 1: GOSUB 479 

289 GOTO 1 

299 IF Y1* 6 AND X2=5 AND _Y2=-5 THEN y2=5: X2=3: RETURN 
399 IF Y1<29 AND x2=-35 AND y2=-5 THEN 4525: X2=-5: RETURN 
319 IF y2=-5 AND x2=9 THEN y2=5; RETURN 

329 IF Y2=-5 AND x2=-5 THEN x2=5 : RETURN 

339 IF Y2=5 AND _X2=-3 THEN X2=5 : RETURN 

349 1F Yy2=-5 AND x2=5 THEN x2=-5 : RETURN 

259 1F_Y2=5 AND X2=5 THEN X2=-5 : RETURN 


0) 
o 
a 
A 


ETURN 
378 SPRITE OFF: C=C+1:G0SUB 419: GOSUB 469: 1F Y2=3 AND X2=9 THEN y2=-5:SPRITE ON:¿R 


-5 AND X2=75_THEN y2=-5: SPRITE ON: RETURN 
399 IF Y2=5 AND %2=5 THEN y?2=-5:SPRITE ON: RETURN 
408 SPRITE ON: RETURN 

419 Y1i=y1-8:X1=X1:PUT SPRITE 1, (Y1,X1),13,1 

429 18 C>=15 THEN GOTO 559 <A 


449 1F_ V=15 or c=15 THEN GOTO 499 


O: PRINT_C: RETURN NS 
476 LOCATE 18.9: PRINT y:C=8:LOCATE 3,9: PRINT A:GOTO 139 
489 1F V>=15 FHEN GOTO 639 


499 | 

s6g SCREEN 3: COLOR 5,1 ¡:OPEN"GRP: ASH] | 

219 DRAW"BM29 28": COLOR A PRINTR1, "FRONTON" | | 

258 FOR T1=9 TO 2599: NEXT | 

239 FOR _G=9 71039: FOR T1=9_TO I5:COLOR ,, T:NEXT T:NEXT 6 | 
1: FOR T=9 TO O e COLOR ep) (256,192)) 11BF FRENO" 

0:PRINT"4 OTRA PARTIDA ?, s/n)” 


EYS$ 
579 IF As="s” OR As="S” THEN CLEAR: RUN 
5gg 1F A$="N" OR as="n” THEN GOTO 608 


A 21: PRINT"COPYRIGTH RORO 1985” 
619 PLAY E AI SOSCEGADFBO6CRIÉL2C" 


? 9:PRINT"LO SIENTO_TE HE GANADO” 
£49 COCATE4,11:PRINT” 1 OTRA PARTIDA ?2,(ts/n)” 


668 IF As="s” OR As="S" THEN CLEAR: RUN 
679 1F Asf="N" OR As="n* THEN GOTO 699 





4 REM MONSER»S+A* 
5 REM E 
¿4 REM 3.1.PEREZ MADRIGAL 
7 REM 
g REM LABERINTO 
9 REM 
19 A En" RP: LASR) 
11 SCREEN 2: COLOR 5,1,1 
29 c0sUB832 
3 N SP 
3 





39 ON, SERAN” GOSuB 829 SE 
78 a) atan 192) ,5,B C mueve con el 
E O a Insiste condes 
08 PORTES dre StEr 29 rojos, todo as los cuadro 
119 LINEST: g)-(1+19,22 ,5, BF h Ss, así sucesi S 
129 INE Tr 29) (111999%))5) BP asta qu sivame 
139 io trió que te choque nt, 
192 MINE a 89, 26,99). ,3, BF iángulos, que irá s con los 
169 LI E aa) (88): 1,5, BF a medi irán más d 5 
179 CANE Cebo 199) 1287199), 1,8 ida qu eprisa 
189 11 139 110) -199,1480 > 5380 a que te los 
199 INE Las 129) (88) 15%)» 31 Br miendo t vayas 
139 LINE(99 122”.(198,17%) 5) BF odos 
219 LINE (118, 19 (120,199) 5, BF 
229 LINE (139,72 11149,179) 5 BF 
239 LINE (159,1 y (168 100) 5, BF 
249 -1NE (179,99): 123 179)1,5 BF 
258 LINE (199,1 1 11332,1701 +77 Br 
269 INE 209) 119)7 (29 169), 1+ BF 
289 LINE (218 129)-(216 159),5» BF 
599 GOSUB 69b 
399 DATA 99911999 
319 DATA g1111199 
29 DATA 11199111 
336 DATA 11111111 
339 DATA g1199119 
2359 DATA JODIDOS 


g 
369 pArA 900010099 
379 DATA 1IBDDODÓ 
R T=1Í TO g: READ A 


439 
449 1F D=? THEN y=Y-1 
459 A 


: READ AA 


213,115) 2,611; 
509 CIRCL (21 9114 
710 CIRCLE(SD 1148))2,6+»+1"4 
29 CIRCLE (188 15),236»> 1.4 
73 CIRCLE (SS 25) 42 bons qn 
749 CIRCLE (199 35) ,2,65> 1.4 
eg CIRCLE! 9,73) 2 dt 
769 CIRCLE (39 17 br loa 
5g CIRO E 2 
cg RETU 
798 E N=PUN* 1999: osuB O 499 
99 SPRIT F:L O SIENTO. SE 


pe 
819 LINE CA id 
038 CIRCLE LAR 29) e Can naa Lotr Puan S) 


49 F= R T=1 12 

esy F=FtL 

569 PReSETIaO E PRINTa. > a ERA TO 

889 FOR IO RN 2909: NEXT: FOR pes ro 30: FOR 7=9 TO 15: COLOR , , TINEXT -NEXTH: COLOR 
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NOS sentamos de nuevo ante un 
arcade, que aprovecha perfectamente 
las características del MSX, 


consiguiendo en algunos momentos 
hacernos creer que se trata de otro 
equipo y no un Home Computers, el 
que tenemos delante. Con unos 
gráficos muy estudiados y bastante 
agradables, y un sonido apropiado 
que inunda la habitación, la conocida 
firma SEGA lanza al mercado este 
juego, que en un primer nivel nos 
hace enfrentarnos a unas estáticas 
torres de energía contra las que nos 
desintegraremos si chocamos. 
Superado el primer nivel, la cosa se 
complica añadiendo unos platillos 
invasores en el bando opuesto, con 
los que hemos de acabar mientras 
pasamos por entre las torres. A 
continuación, el más difícil todavía: 
torres, platillos y marcianitos, todos 
a la vez y contra ti. Superado todo 
esto, pasas al hiperespacio, donde 
después de abatir platillos, habrás de 
derribar a la mayor nave. 

Todo parecía haber terminado 
cuando bajamos a un segundo nivel, 
donde las torres de energía te obligan 
a pasar entre ellas, desintegrándote 
con sus rayos si no lo haces. Y con 
esta nueva complicación, volvemos a 
empezar el ciclo, del que os aseguro 
que os va a resultar muy difícil salir, 

a menos que seáis unos expertos 
jugadores. 

Desde el punto de vista técnico, 
este es un juego de sencilla realización 
pero muy efectista, con una respuesta 
tanto al teclado como al joystick 
realmente excelentes, y unos gráficos 
y un sonido, como ya comentabamos, 
fuera de lo común. 

Siéntate cómodamente, conecta el 
joystick, carga el programa y disponte 
a disfrutar de uno de los mejores 
arcades que se han fabricado para 
MSX. 
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Hace ya algún tiempo de nombre Canon era sinónimo 
de cocinas a gas. Mas recientemente Canon significa 





cámaras, fotocopiadoras, etc. | 
Ahora se puede añadir a esta lista su MSX. 


Canon es una de las campañas con 
más éxito del Japón. Sus principios 
fueron humildes y sus aspiraciones 
muy altas. Nunca perdió una oportu- 
nidad, y ahora son los innovadores 
de la industria fotográfica, además 
de aquirir gran reputación en material 
de oficina. Esta es una gran ventaja 
al sacar su ordenador MSX. 


De todas maneras, la producción. 


de ordenadores es un poco lenta, 
por lo que deberemos esperar algu- 
nos meses para sentir el tirón publi- 
citario. 

El precio del ordenador oscila entre 
las 60.000 ptas., siendo un precio 


medio. 
El ordenador que ha lanzado Ca- 
non es de 64 K, y se llama V - 20. 
Siguiendo la línea de otras compa- 
ñías del sector, Canon ha rediseñado 


su máquina japonesa, a la vez de 


hacerla compatible con el sistema pal. 

Estéticamente, el ordenador es re- 
choncho y gracioso, si es que se 
pueden utilizar estos terminos para 
describir a un ordenador, las esqui- 
nas son redondas, las teclas de cur- 
sor son más grandes de lo acostum- 
brado, las letras naranjas y blancas 
y el logotipo de Canon dan esa im- 
presión. 






Analisis 
Hardware 


En este ordenador, a diferencia de 
algunos otros, no existen caracterís- 
ticas especiales. El puerto de expan- 
sión es poco usual, ya que esta 
«escondido» debajo de un panel de 
quita y pon; estando situado en la 
parte trasera. Los puertos de joys- 
ticks se encuentran en un sitio poco 
usual, ya que están en la parte de- 
lantera de la máquina. 

Al tocarlo por primera vez se des- 
vanece la sensación inicial de euforia. 

El tacto plástico del teclado es 
muy obvio, notándose la diferencia 
de acabado con otros ordenadores 
como el Sony. | 29 








Analisis 
Hardware 






El teclado está equipado con toda 
la gama de teclas alfanuméricas y 
de control, incluyendo la de los acen- 
tos europeos. Las letras alfanuméri- 
cas y de cursor son grises ocuras, 
y las de control grises claras y negras. 

Las teclas son ligeramente cónca- 
vas, con la función de cada una de 
ellas impresa en vez de estar graba- 
da. Esto implica que los rótulos pue- 
den borrarse con el uso. El ángulo 
del teclado es muy pequeño, pero 
el usuario podrá manejarse bien, y 
comparado con el teclado de otros 
ordenadores, la diferencia es notoria. 

Las teclas de cursor son una de- 
licia. Son muy grandes comparadas 
a las de otros ordenadores. Están 
ordenadas de tal forma que pueden 
ser usadas muy rápidamente. 

Esta característica hace a la Canon 
ideal para juegos de ordenador. 

El resto de las teclas de control 
están claramente marcadas y dis- 
puestas alrededor de las teclas alfa- 
numéricas, en el sitio usual. La barra 
espaciadora es un poco corta, la 
tecla RETURN un poco más pequeña 
de lo usual, aunque si está acostum- 
brado a máquinas de escribir eléctri- 
cas, no tendrá ningún problema. Así- 
mismo, la tecla CAPS tiene un piloto 
verde, que se enciende al utilizar 
esta tecla. 

Las teclas de función forman una 
fila en la parte superior del teclado, 
flanqueadas por las teclas STOP, 
INS, DEL y HOME/CLS. Son largas, 
negras y fáciles de localizar, las te- 
clas sin función son más pequeñas, 
y están dentadas, un rótulo encima 
de ellas muestra su función. Si los 
rótulos estuviesen encima de las te- 
clas sería excelente, aunque no está 
mal tal y como está. 

Asímismo, nos lo han puesto muy 
fácil para pulsar las teclas CRTL y 
STOP a la misma vez, función que 
necesitamos usar frecuentemente. 

En cuanto al teclado, hay que decir 
que las teclas alfanuméricas están 
bien, pero podrían mejorarse. Las 
teclas de control están entre las me- 
jores que hemos tenido oportunidad 
de pobrar. 


30 


La V - 20 tiene además un interrup- 
tor de encedido que se encuentra 
en la parte derecha. Un piloto verde 
nos indica cuando la máquina está 
encendida. Sin embargo, este apara- 
to carece de la tecla RESET, que 
sin embargo se encuentra en otros 
ordenadores MSX del mercado. 

La V-20 está equipada con los 
interfaces usuales en este tipo de 
máquinas, para una máxima compa- 
tibilidad. Detrás del teclado hay un 
puerto para cartuchos, con una pro- 
tección plástica que se abate al in- 
troducir un cartucho. 

Los Joysticks se ajustan en los 
dos puertos situados en la parte de- 
lantera del ordenador, estando rotu- 
lados. Esta posición de los puertos 
implica no tener que girar el ordena- 
dor cuando queremos ajustar el joys- 
tick, por lo que resulta muy cómodo. 

En la parte trasera del V - 20 hay 
5 puertos. De izquiera a derecha se 
encuentran los de televisión, video, 
audio, cassette e impresora. Por úl- 
timo en la esquina se encuentra el 
cable de la red. El interface para 
impresora tipo centronics tiene dos 
asideros en cada lado para asegurar 
el cable. El enchufe del cassette es 
el estándar de 8 pin din. Todos estos 
enchufes están protegidos del polvo 
y claramente marcados. 

Para tener a la vista el puerto de 
expansión de 50 pin, se debe quitar 
un pequeño panel plástico. Este sale 
fácilmente y nos muestra el segundo 
puerto de cartuchos. 

El puerto de expansión es para 
cartuchos o periféricos con salidas 
tipo cartucho. Esto implica que no 
podremos enchufar accesorios como 
por ejemplo el disk drive de Spectra- 
video sin hacer modificaciones. 

En este momento Canon ya tiene 
una amplia gama de impresoras de 
calidad, bien asentadas en el merca- 
do de ordenadores. 

Todas ellas utilizan el interface pa- 
ralelo centronics, por lo que se pue- 
den utilizar con la V - 20 y, por su- 
puesto, con los demás ordenadores 
MSX. El funcionamiento del V - 20 
no es todo lo bueno que debía. Los 


colores no son tan vívidos como los 
de otros aparatos. El sonido es nor- 
mal. 

En cuanto al recalentamiento de 
la máquina, hay que decir que el 
transformador no se caliente con fa- 
cilidad, aún con el uso prolongado. 

No hay demasiadas rejillas de ven- 
tilación, pero los diseñadores hicieron 
un buen trabajo con el transformador. 

Canon proporciona pocos acceso- 
rios con la V-20. Hay un manual de 
referencia de 300 páginas, un manual 
para el usuario de 30 páginas, así 
como los cables para la conexión 
del ordenador con el aparato de cas- 
sette y la TV. Sin embargo, no inclu- 
yen ningún tipo de software para el 
ordenador. 

El manual para el usuario nos pa- 
rece idael para el usuario, siendo 
muy claro y conciso. En el se explica 
como conectar el ordenador a una 
TV, describe el teclado, sus funciones 
y una guía de como editar progra- 
mas. 

A continuación se muestra una pe- 
queña introducción al lenguaje basic 
cómo introducir líneas, cómo ejecutar 
un programa, etc. Después habla de 
las conexiones al aparato de casset- 
te, de cmo usar cartuchos y joysticks, 
terminando con información sobre la 
estructura de la memoria , etc. Hay 
suficiente información para asegurar 
a los usuarios de la V - 20 el poder 
utilizarla sin dirigirse a otros manuales 
de referencia. 

Esta es la V - 20. Una máquina de 
la que se pueden decir pocas cosas 
negativas. Por su precio, merece más 
la pena que los ordenadores, Sanyo, 
Sony y Mitsubishi. Tampoco es la 
más barata, ya que la Toshiba y 
Spectravideo son más baratas, y no 
se comercializará a gran escala. 

Si decide comprar una Canon, ten- 
drá en sus manos un aceptable or- 
denador MSX. 

La completa documentación incluí- 
da con el ordenador implica que no 
deberá tener problemas a la hora de 
usarla y el estándar MSX significa 
que tendrá un basic muy completo 
para trabajar. 


PREGONERO 


(Pavo ya sabéis, esta sección está destinada 
a vosotros, queridos lectores; para 
vuestras dudas, problemas, anuncios... incluso 
para aquellas anécdotas divertidas que os haya 
podido ocurrir con vuestro entrañable 
ordenador, que muchas veces pasa de ser una 
«Simple Máquina» (si es que podemos darle 
este calificativo) a ser un buen amigo, con el 
que se pasan muchas horas. 

Así pues, esperamos vuestras cartas. ¡Hasta la 
próxima! 


p r con 
a contacta : 
Deseal! sx de mi 


| e | 
suarios de W y 
província para intercambl 
de programas. 

ernández- 


sé Luis E ; 
po Fdez. Ladreda, 5860 


Gijón (Asturias) 


Se precisan distribuido- 
res en todo el territorio na- 
cional, para productos de 
primeras marcas de: 


Computer 
Video 
Audio 


Dirigirse a: Monser, S.A. 
C/ Argos, 3. Teléfono (91) 742 72 12 
Srta. Yolanda 
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Key Panel a. 
plantillas troqueladas especiales 


para colocar sobre el tealado 
de Spectrum. 


Colección tus Juegos Single 
20 estuches de e con un programa 
para Spectrum 48 , 
Incluyendo manual en 
castellano. 





















Tevista con 
cassette de 
Juegos de 
aparición 
mensual 
con pro- 
gramas 
didácticos 










Games Board 
carcasa mol- 










































para 
deada para Spectrum 
colocar sobre K 
el teclado del Colección 
Spectrum, con tus juegos 4 Waza 
apto el % estuches de lujo con 
pa ín ops as 4 programas cada uno 
eclas a utilizar Incluyendo manual de 
en cada programa. Instrucciones en castellano 
para Spectrum 48 K. 
Seis  Ca- 
ssettes con 
programas 


estrellas pre- 


Revista con sentados en 


cassette 
estuche de 
de juegos de luj 
aparición Ya dra 


j ” -¿l ¡hb Spectrum 
mensual para Y A . 48 K 
Spectrum 48 K. P.V.P." 1:795' pis: 
Catálogo con 


instrucciones en castellano. 





Revista 
mensual 


con 
cassette 


para 
MSX. 







Interface para 
a doysdek de 
doble salida, especial 
para Spectrum. 











Revista mensual 
con programas listados para 
Spectrum, M S X, Amstrad y 
Commodore. incluyendo cinta 
virgen. 





y 
y 


Lápiz de Luz para Spectrum. cm 






Cassette virgen 
0-30, especial 
para ordenadores. 





r 


Joystick . 
«Challenger» 


o 

















Dos programas j / a ! Joystick 
de'juegos para Spectrum 48 K, AÑO le 
con cinta virgen de regalo. / 


Quickshot Il ' 





teclado profesional especial 


Nota: Todos los cassettes llevan los programas para ordenadores. | 


grabados en ambas caras. 





